home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
arrays.arc
/
TWO-D.BAS
< prev
Wrap
BASIC Source File
|
1987-09-17
|
2KB
|
61 lines
defint a-z
dim cities$(100), temps(100,4)
'*** Main program is here
gosub readindata
gosub printoutdata
end
'****************************************************************************
' READINDATA - gets in the necessary data (ie, name/temperature pairs)
readindata:
restore info
read n.cities
for i=1 to n.cities
read cities$(i)
read temps(i,1), temps(i,2), temps(i,3), temps(i,4)
next
return
'****************************************************************************
'****************************************************************************
' PRINTOUTDATA
printoutdata:
locate 1,1
color 14
print "CITY","HIGH","LOW","PRECIP.","WIND"
color 7
for i=1 to n.cities
print cities$(i),
print temps(i,1), temps(i,2), temps(i,3), temps(i,4)
next
return
'****************************************************************************
info:
data 22
data Acapulco, 94, 77, 11, 2
data Athens, 89, 66, 11, 8
data Beijing, 83, 68, 6, 12
data Bonn, 68, 66, 2, 11
data Cairo, 90, 68, 12, 1
data Copenhagen, 64, 45, 7, 20
data Dublin, 63, 63, 5, 18
data Geneva, 88, 59, 6, 15
data Helsinki, 60, 43, 7, 12
data Jerusalem, 90, 61, 13, 2
data Lima, 66, 63, 13, 5
data Madrid, 96, 63, 12, 2
data Merida, 86, 75, 12, 4
data Monterrey, 95, 75, 12, 6
data Moscow, 52, 46, 2, 22
data Nice, 80, 68, 12, 7
data Paris, 70, 64, 8, 14
data Rome, 84, 64, 10, 10
data Singapore, 85, 73, 9, 9
data Taipei, 84, 73, 7, 12
data Toronto, 72, 50, 0, 26
data Vienna, 90, 57, 2, 20